home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / CLEARWIN.MOD < prev    next >
Text File  |  1987-02-01  |  2KB  |  45 lines
  1. (*----------------------------------------------------------------------*)
  2. (*               Clear_Window --- Clear out lines in window             *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Clear_Window;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Clear_Window                                         *)
  10. (*                                                                      *)
  11. (*     Purpose:    Clears screen for current window                     *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Clear_Window                                                  *)
  16. (*                                                                      *)
  17. (*     Calls:   Upper_Left                                              *)
  18. (*              GoToXY                                                  *)
  19. (*                                                                      *)
  20. (*----------------------------------------------------------------------*)
  21.  
  22. VAR
  23.    Ytop: INTEGER;
  24.    Xtop: INTEGER;
  25.    Ybot: INTEGER;
  26.    I   : INTEGER;
  27.  
  28. BEGIN (* Clear_Window *)
  29.  
  30.    Upper_Left( Xtop, Ytop );
  31.    Ybot := Lower_Right_Row;
  32.  
  33.    FOR I := 1 TO ( Ybot - Ytop + 1 ) DO
  34.       BEGIN
  35.          GoToXY( 1 , I );
  36.          ClrEol;
  37.       END;
  38. {
  39.    Scroll( YTop, YBot, 1, Max_Screen_Col, 0, Global_ForeGround_Color,
  40.            Global_BackGround_Color );
  41. }
  42.    MoveToXY( 1 , 1 );
  43.  
  44. END   (* Clear_Window *);
  45.